80 SI=54272:FORL=SITOSI+23:POKEL,0:NEXT:POKESI+24,15:POKESI+5,8:POKESI+6,255
90 POKESI+4,23
100 S1=10:FORZ=1TO35:S2=25:POKESI+1,S1:FORY=1TO30:POKESI+15,S2:S2=S2+2:NEXTY
110 S1=S1+4:NEXTZ:S1=47:FORZ=40TO1STEP-1:S2=38:POKESI+1,S1:FORY=1TO20
120 POKESI+15,S2:S2=S2+1:NEXTY:S1=S1-1:NEXT:GOTO100